home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.setwindows < prev    next >
Text File  |  2007-03-01  |  718b  |  27 lines
  1. 0010 ╨╥╧├ SETWINDOWS(VX1,VX2,VY1,VY2,WX1,WX2,WY1,WY2,L,R,B,T,FRAME) ├╠╧╙┼─
  2. 0020   ╒╙┼ GRAPHICS
  3. 0030   ╔╞ FRAME ╘╚┼╬
  4. 0040     DRAW'FRAME
  5. 0050   ┼╠╙┼ 
  6. 0060     NO'FRAME
  7. 0070   ┼╬─╔╞ 
  8. 0080   
  9. 0090   ╨╥╧├ NO'FRAME 
  10. 0100     VIEWPORT(VX1,VX2,VY1,VY2)
  11. 0110     WINDOW(WX1,WX2,WY1,WY2)
  12. 0120   ┼╬─╨╥╧├ NO'FRAME
  13. 0130   
  14. 0140   ╨╥╧├ DRAW'FRAME 
  15. 0150     ╔╞ VX1+L<0 ╘╚┼╬ L:=-VX1
  16. 0160     ╔╞ VX2+R>319 ╘╚┼╬ R:=319-VX2
  17. 0170     ╔╞ VY1+B<0 ╘╚┼╬ B:=-VY1
  18. 0180     ╔╞ VY2+T>199 ╘╚┼╬ T:=199-VY2
  19. 0190     VIEWPORT(VX1+L,VX2+R,VY1+B,VY2+T)
  20. 0200     WINDOW(WX1,WX2,WY1,WY2)
  21. 0210     MOVETO(WX1,WY1)
  22. 0220     DRAWTO(WX1,WY2); DRAWTO(WX2,WY2)
  23. 0230     DRAWTO(WX2,WY1); DRAWTO(WX1,WY1)
  24. 0240   ┼╬─╨╥╧├ DRAW'FRAME
  25. 0250 ┼╬─╨╥╧├ SETWINDOWS
  26. 0260 
  27.